home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 4 / Amiga Plus Sonderheft 1996 #4.iso / helm-workshop / teil 1 / skript-beispiele (.txt) next >
Helm Multimedia Book  |  1995-11-01  |  10KB  |  265 lines
  1. Skript-Beispiele
  2. 05-26-95
  3. &$VER: Skript-Beispiele 1.00 (05-26-95)
  4. on SelectUp
  5. begin
  6. ' Definition der Funktion "Tonleiter"
  7. on Tonleiter begin
  8. for Note = 60 to 74 begin
  9. play notes Note
  10. delay 5
  11. Tonleiter
  12. New...
  13. Open...
  14. Make Copy...
  15. Streamline...
  16. Preferences...
  17.     Workbench
  18. Help...
  19. About...
  20. Quit...
  21. Paste
  22. Clear
  23. Select All
  24. Select Layer
  25. Cut Page
  26.     Copy Page
  27. Colors
  28. Load...
  29. Save...
  30. Restore Colors
  31. Default Colors
  32. Brush Colors
  33. Image Colors
  34. Last Color Font
  35. Cycle
  36. Grid...
  37. Stop Sound
  38. Show All
  39. Unlock All
  40.     Edit Form
  41. Share
  42.     Next Page
  43. Previous Page
  44. First Page
  45.     Last Page
  46. Backward
  47. Forward
  48.     Last Book
  49.     Browse...
  50. Autobrowse...
  51.     Bookshelf
  52. New Page
  53. Delete Page
  54. New Form
  55. Load Form...
  56. Save Form...
  57. Image
  58. Load...
  59. Save...
  60. Capture...
  61.     Clipboard
  62. Paste
  63. Spare
  64. Swap Frames
  65. Copy to Spare
  66. Merge in Front
  67. Merge in Back
  68. Delete Spare
  69. Frame
  70. Previous
  71. Delete
  72. Copy to All
  73. Color
  74. Remap
  75. Transparency
  76. Paper <-> Pen
  77. Paper ->  Pen
  78. Count
  79. Vertical
  80. Horizontal
  81. Info...
  82. Brush
  83. Load...
  84. Save...
  85. Restore
  86.     Clipboard
  87. Paste
  88. Color
  89. Remap
  90. Transparency
  91. Paper <-> Pen
  92. Paper ->  Pen
  93. Center
  94. Corner
  95.     Any Point
  96. Any Size
  97. Halve
  98. Double
  99. Halve Width
  100. Halve Height
  101. Double Width
  102. Double Height
  103. To PAL
  104. To NTSC
  105. Vertical
  106. Horizontal
  107. Shear
  108. Vertical
  109. Horizontal
  110. Rotate
  111.     Any Angle
  112. Paint
  113. Matte
  114. Color
  115. Replace
  116. Smear
  117. Dissolve
  118. Spare
  119. Cycle
  120. Cycle 2
  121. Gradient
  122. Gradient 2
  123. Smudge
  124. Chaos
  125. Count
  126. Custom
  127. Dither
  128. Edges
  129. Object
  130. Load...
  131. Save...
  132. Bring to Front
  133. Send to Back
  134. Bring Closer
  135. Send Farther
  136. Group
  137. Ungroup
  138. Duplicate...
  139. Align...
  140. Info...
  141. Actions...
  142.     Script...
  143. Load...
  144. Save...
  145. Plain
  146.     Underline
  147. Italic
  148. Shadow
  149. Font...
  150. Spacing...
  151.     Hypertext
  152. Actions...
  153.     Script...
  154. Tools
  155. Coordinates
  156.     Title Bar
  157. Palette
  158. Colors
  159. Patterns
  160. Paint Tools
  161. Paint Types
  162.     Histogram
  163.     Magnifier
  164. Messages
  165. Draw Tools
  166. Layers
  167. Pages
  168. Author
  169. Book...
  170. Form...
  171. Page...
  172. Display...
  173. Narrator...
  174. Hypertext...
  175. Resources...
  176.     Effect...
  177. Effect Area
  178. DDDUUUfffwww
  179. topaz.fontGLOB
  180. FONTS:
  181. Skript-Beispiele
  182. Origineller Inhalt
  183. @oBild oder Ton?
  184. @FFor-Schleife
  185. @DDo-While-Schleife
  186. Beispieltext
  187. Beispieltext
  188. @gget
  189. @pput
  190. Beispielbild
  191. @lBild laden
  192. @sBild speichern
  193. @BBenutzer-Funktion
  194. on SelectUp
  195. begin
  196. ion SelectUp
  197. begin
  198. answer "Was h
  199. tten Sie denn gern?" with "~@BBild" or "@TTon"
  200. if it = "Bild" then begin
  201. show image "Helm:Star-Trek-Dateien/Bilder/Enterprise.IFF" loops 3
  202. else begin
  203. play sound "Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX" channel 0 volume 64
  204. delay 2
  205. play sound "Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX" channel 1 volume 32
  206. Was h
  207. tten Sie denn gern?
  208. ~@BBild
  209. @TTon
  210. Helm:Star-Trek-Dateien/Bilder/Enterprise.IFF
  211. Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX
  212. Helm:Star-Trek-Dateien/Sounds/TOS-Thema.8SVX
  213. ~on SelectUp
  214. begin
  215. for Zaehler = 5 to 40 step 2
  216. begin
  217. set pencolor random 15
  218. drawellipse 540, 140, Zaehler, Zaehler
  219. on SelectUp
  220. begin
  221. put 5 into Zaehler
  222. put Zaehler + 2 into Zaehler
  223. set pencolor random 15
  224. drawellipse 540, 140, Zaehler, Zaehler
  225. while Zaehler <= 40
  226. @on SelectUp
  227. begin
  228. get textfield "Beispieltext"
  229. answer it
  230. `&...
  231. Beispieltext
  232. bon SelectUp
  233. begin
  234. ask "Was soll rein ins Textfeld?" 
  235. put it into textfield "Beispieltext"
  236. Was soll rein ins Textfeld?
  237. Beispieltext
  238. on SelectUp
  239. begin
  240. getfile "ram:" titletext "Bild laden ..."
  241. load image it into imagefield "Beispielbild"
  242. get palette
  243. if it is false then domenu "Tools", "Palette"
  244. get painttools
  245. if it is false then domenu "Tools", "Paint Tools"
  246. Bild laden ...
  247. Beispielbild
  248. Tools
  249. Palette
  250. Tools
  251. Paint Tools
  252. uon SelectUp
  253. begin
  254. getfile "ram:" titletext "Bild speichern ..." savemode
  255. save imagefield "Beispielbild" as it
  256. Bild speichern ...
  257. Beispielbild
  258. [on SelectUp
  259. begin
  260. ' Aufruf der benutzerdefinierten Funktion "Tonleiter"
  261. Tonleiter()
  262. Tonleiter
  263. ILBMBMHD
  264. eCAMG
  265.